home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / 3dvect37.zip / QB.ZIP / SHADING.BAS < prev   
BASIC Source File  |  1994-01-24  |  765b  |  50 lines
  1. DECLARE FUNCTION c$ (qq!)
  2.  
  3. x$ = "shading_tables:"
  4. b$ = "  db "
  5.  
  6. r$ = ","
  7.  
  8. PRINT "  align 16"
  9. PRINT
  10. PRINT x$
  11.  
  12. 'nu = 64
  13. 'nu = 48
  14. 'nu = 32
  15. nu = 16: REM number of colours to grab from pal for lambert shading table
  16.  
  17. DIM x(256)
  18.  
  19.  FOR xa = 0 TO 255
  20.  
  21.    x(xa) = ((TAN((xa - 128) / 256) + .5463026) / 1.087545) * nu
  22.  
  23.  NEXT xa
  24.  
  25.      PRINT b$;
  26.  
  27. qw = 16: REM how many numbers to print on the same line
  28.  
  29.  FOR z = 0 TO 255 STEP qw
  30.     FOR q = 0 TO qw - 1
  31.      PRINT c$(x(z + q));
  32.      IF q <> qw - 1 THEN
  33.        PRINT r$;
  34.      ELSE
  35.        PRINT
  36.      END IF
  37.     NEXT q
  38.  
  39.     IF z < 255 - qw THEN PRINT b$;
  40.  NEXT z
  41.  
  42. PRINT " Now replace this in the file MATH.INC"
  43.  
  44. FUNCTION c$ (qq)
  45.  
  46.  c$ = LTRIM$(RTRIM$(STR$(INT(qq))))
  47.  
  48. END FUNCTION
  49.  
  50.